###########################################################################
# Plot ACDE
# Figure 5

par(mfrow=c(1,1), las=1, tck=0, oma=c(1,1,1,1), mar=c(3,3,1,1), mgp=c(1.7, .3, 0), cex.axis=.7, cex.lab=.7)
plot(c(1:5), combined.res[,1], pch=19, ylim=c(-6, 7), ylab="ACDE of Permitting a Demonstration on Feeling Score", xlab="Citizen Response to Permitting a Demonstration", axes=F)

grid(lty=1, lwd=.5, col="lightgrey")
abline(h=0, lty=1, col="grey")
axis(2, col="white")
axis(4, col="white")

points(c(1:5), combined.res[,1], pch=19, cex=1.5)
segments(c(1:5), combined.res[,1]-1.96*combined.res[,2], c(1:5), combined.res[,1]+1.96*combined.res[,2], pch=19)
points(c(1:5), combined.res[,1], pch=19, cex=.3, col="white")

axis(1, at=c(1:5), label=c("Stronly Oppose", "Oppose", "Neither", "Support", "Strongly Support"), col="white")
